#!/usr/local/bin/perl

$x = 10;
foo(*x);
sub foo {
    local(*y) = @_;
    print "Before value of y : $y \n";
    local($x) = 100;
    print "After value of y : $y \n";
}
print $x;

{
    my $a = "hello world";  # 1
    $ra = \$a;              # 2 
}
print "$$ra \n";